Importation des données
load("~/2020-2021/PROJET-INGE/data_agrocampus.RData")
Chargement des packages
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v tibble 3.0.4 v dplyr 1.0.2
## v tidyr 1.1.2 v stringr 1.4.0
## v readr 1.4.0 v forcats 0.5.0
## v purrr 0.3.4
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks plotly::filter(), stats::filter()
## x dplyr::lag() masks stats::lag()
Séparation du JDD en 2 jeux: un descriptif des expériences, et un avec les données de son
chat <- model_data[,1:6]
son <- model_data[, 7:1102506]
Fonction de visualisation des courbes
draw_plot <- function(line,pas,dep,fin){
dt <- 25/1102500
dep <- dep
fin <- fin/dt
pas <- 500
temps <- seq(from = dep, to = fin, by = pas)
indice <- temps + 1
dta <- data.frame(time = temps[-length(temps)]*dt,
amplitude = as.integer(son[line,temps]))
# graphe
p1 <- dta %>% ggplot() +
aes(x = time, y = amplitude) +
geom_line(size = 0.2) +
theme_minimal()
p1 <- p1 + annotate("text", x = 23, y = max(dta$amplitude),
label = paste('nb_bk: ',
chat[line,'nb_bk'],'\n',
'nb_bit: ',
chat[line,'nb_bit']),
colour = 'orange', size = 5)
ggplotly(p1)
}
line = '39'
pas = 1
debut = 0
fin = 25
draw_plot(line,pas,debut,fin)